Here we plot mtcars dataset with Plotly.
library(plotly)
plot_ly(data = mtcars, x = ~as.factor(gear), y = ~mpg, color = ~as.factor(gear), type = "box") %>% layout(title = "Fuel efficiency changes with the number of gears", xaxis = list(title = "gear number"), showlegend = FALSE)